home *** CD-ROM | disk | FTP | other *** search
/ Tux Racer / Tux Racer.iso / program files / Sunspire Studios / Tux Racer / courses / beginner / foggy_light.tcl < prev    next >
Encoding:
Text File  |  2001-09-09  |  1.4 KB  |  36 lines
  1. objcreate {s_course} {:course} \
  2.     {-light0_on} {1} \
  3.     {-light0_ambient} {0.360000014305 0.389999985695 0.409999996424 1.0} \
  4.     {-light0_diffuse} {0.569999992847 0.550000011921 0.5 1.0} \
  5.     {-light0_specular} {0.3 0.3 0.3 1.0} \
  6.     {-light0_position} {1.0 1.0 -0.800000011921 0.0} 
  7.  
  8. set fog_dist 50
  9. set far_clip [tux_get_param forward_clip_distance]
  10. if { $fog_dist > $far_clip } {
  11.     set fog_dist $far_clip
  12. } 
  13.  
  14. tux_fog -on -mode linear -start -10 -end $fog_dist -colour { 0.73 0.73 0.73 1.0 }
  15.  
  16. tux_particle_colour { 0.8 0.8 0.8 1.0 }
  17.  
  18. tux_load_texture envmap ../beginner/beginnerovercast_right.png 0
  19.   
  20. tux_load_texture beginner-front ../beginner/beginnerovercast_front.png 0
  21. tux_load_texture beginner-right ../beginner/beginnerovercast_right.png 0
  22. tux_load_texture beginner-left ../beginner/beginnerovercast_left.png 0
  23. tux_load_texture beginner-back ../beginner/beginnerovercast_back.png 0
  24. tux_load_texture beginner-top ../beginner/beginnerovercast_top.png 0
  25. tux_load_texture beginner-bottom ../beginner/beginnerovercast_bottom.png 0
  26.  
  27. tux_bind_texture sky_front beginner-front
  28. tux_bind_texture sky_right beginner-right
  29. tux_bind_texture sky_left beginner-left
  30. tux_bind_texture sky_back beginner-back
  31. tux_bind_texture sky_top beginner-top
  32. tux_bind_texture sky_bottom beginner-bottom
  33.  
  34. objcreate {s_texture_cube} {:textures:cubemap} \
  35.     {-filename} {../beginner/beginnerovercast_}
  36.